<!-- #include file="conectar.asp" -->
<% 
	AbreBanco()
	set rs = server.createobject("ADODB.Recordset")	
	rs.open "SELECT Tb_Exclusao.dt_exclusao FROM Tb_Exclusao WHERE ativo = 1 ORDER BY Dt_exclusao",banco,3,3
	
	dim myArray(50)
	
	i = 0
	while not rs.eof
		myArray(i) = rs(0)
		rs.movenext
		i = i + 1 
	wend
	rs.close
	
	for each data in myArray
		'Response.Write(data) + "<br>"
	next

	afast = DateDiff ("n","01/11/2012 09:00:00","01/11/2012 14:00:00")	
	Response.Write(afast)
	Response.Write("<br>")
	diarias = int(afast/1440)		
	Response.Write(diarias) 
	
%>
